home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / Externals.cpt / Externals / card_8480.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  52 lines
  1. -- card: 8480 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2795
  5. -- name: Sort
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=316 top=307 right=329 bottom=380
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Demo
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect iris open
  23.   go to card id 10483
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part contents for background part 1
  29. ----- text -----
  30. XFCN
  31.  
  32. -- part contents for background part 22
  33. ----- text -----
  34. Sort(card field "fieldName")
  35.  
  36. -- part contents for background part 13
  37. ----- text -----
  38.    Sort - sorts the contents of a container by lines and puts it into another container (or into 
  39.               itself).
  40.  
  41. This routine is not public domain. If you use it in your own stacks, you must send in a $10 license fee to:
  42.                             Boojum Computer Systems, Inc.
  43.                             15004 Donna Drive
  44.                             Silver Spring, Md 20904
  45.  
  46. Copyright 1987 Boojum Computer Systems, Inc.       All Right Reserved
  47.  
  48. on mouseUp
  49.   put Sort(card field "textIn") into card field "textOut" 
  50. end mouseUp
  51.  
  52. --"textOut" and "textIn" can be the same container